{ INFORMATICS.MCCME.RU
  Problem statement: http://informatics.mccme.ru/moodle/mod/statements/view3.php?chapterid=73
  Verdict: Accepted
}
uses SysUtils, Math;
 
var
	i,n:longint;
	ans,kk,p:int64;
 
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
read(n);
ans:=1;
read(p);
for i:=2 to n do begin
	read(kk);
	if kk>p then begin
		inc(ans);
		p:=kk;
	end;
end;
write(ans);
end.